home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
win_m_p
/
mtrash.zip
/
XLTRASH.TXT
< prev
Wrap
Text File
|
1992-08-27
|
1KB
|
33 lines
PutInStevesMctrash
=ERROR(FALSE)
=SET.NAME("FindAppWin",CALL("User","FindWindow","IJC",0,"Steve's McTrash Dumpster"))
=IF(FindAppWin=0)
=ALERT("Steve's McTrash Dumpster is not running; please start it and then try deleting this file again!",3)
=RETURN()
=END.IF()
=IF(ISERROR(GET.DOCUMENT(2)))
=ALERT("This file has not been saved yet, so it cannot be put in the dumpster!",3)
=RETURN()
=ELSE()
=SET.NAME("DocName",GET.DOCUMENT(1))
=SET.NAME("DocPath",GET.DOCUMENT(2))
=END.IF()
=CLOSE()
=SET.NAME("EndChar",RIGHT(DocPath,1))
=IF(EndChar="\")
=SET.NAME("Executable","ZAP="&DocPath&DocName)
=SET.NAME("DelFile",DocPath&DocName)
=ELSE()
=SET.NAME("Executable","ZAP="&DocPath&"\"&DocName)
=SET.NAME("DelFile",DocPath&"\"&DocName)
=END.IF()
=SET.NAME("Channel",INITIATE("MCTRASH","FORM1"))
=EXECUTE(Channel,Executable)
=TERMINATE(Channel)
=BEEP()
=SET.NAME("FileGone",DelFile&" has been deleted!")
=MESSAGE(TRUE,FileGone)
=WAIT(NOW()+"00:00:03")
=MESSAGE(FALSE)
=RETURN()